|
CATIA V5 CAM : setToolAxis
adrian83 am 03.05.2013 um 16:09 Uhr (0)
hi,nachdem ich hier soviel erfahren habe,hier der richtige code für die das nc-achssystem setzen,es lag am "call",oder am getItem vorher statt itemnormierter richtungsvektor braucht man nichtCode:Option ExplicitSub catmain()Dim a As ProcessDocumentSet a = CATIA.ActiveDocumentDim b As PPRDocumentSet b = a.PPRDocumentDim c As ActivitiesSet c = b.ProcessesDim d As PPRActivitySet d = c.Item(1)Dim e As ChildrenActivitiesSet e = d.ChildrenActivitiesDim f As ManufacturingSetupSet f = e.GetItem("Part Operation.1") ...
|
|
CATIA V5 NC : Objekt Selection für Werkzeugwechsel
A. Hofmann am 02.10.2003 um 15:12 Uhr (0)
Hallo Catia Programmierer, mit dem Objekt Selection will ich den Namen eines selektierten Werkzeugwechsels ermitteln mit folgendem Script (Ich befinde mich im PMG, SMG oder AMG): Set MfgDoc1 = CATIA.ActiveDocument Dim mySelection as Selection Set mySelection = MfgDoc1.Selection Dim SelMfgAct As ManufacturingActivity Set SelMfgAct = Nothing Set SelMfgAct = mySelection.Item(1).Value MsgBox SelMfgAct.Name Ich erhalte folgende Fehlermeldung: Das Objekt unterstützt diese Eigenschaft oder Methode nicht: SelMfgA ...
|
|
CATIA V5 NC : Maschineneditor
bewnc am 23.03.2006 um 17:58 Uhr (0)
Hallo,ich habe mir ein Makro gebastelt.Sub CATMain()On Error GoTo Fehler Set actdoku = CATIA.ActiveDocument Set liste = actdoku.Selection anzahl = liste.Count If anzahl 1 Then MsgBox "Es darf nur eine Aufspannung selektiert werden!" Exit Sub End If Set aufsp = Nothing Set aufsp = liste.Item(1).Value If (aufsp.IsSubTypeOf("ManufacturingSetup")) Then Dim Machine1 As ManufacturingMachine Set Machine1 = aufsp.CreateMachine("Mfg3AxisMachine") Machine1.PreferedToolCatalogN ...
|
|
CATIA V5 NC : Maske voreinstellen
crash am 30.03.2006 um 18:47 Uhr (0)
Hier ein kleines Script mit dem so was geht.Du musst nur noch die Variablem mit deinen Werten belegen.Oder entfernen wenn nicht benötigt.Grusscrash Language="VBSCRIPT" Sub CATMain() Set MfgDoc1 = CATIA.ActiveDocument Set ActivityRef = MfgDoc1.GetItem("Process") If (ActivityRef.IsSubTypeOf("PhysicalActivity")) Then Set childs = ActivityRef.ChildrenActivities quantity = childs.Count if quantity = 0 then Exit Sub End if NumberOfSetup = 0 For I=1 To quantity Set child = childs.Item(I) If (child.IsSub ...
|
|
CATIA V5 NC : PPTables
crash am 27.02.2007 um 09:10 Uhr (0)
Hallo rolle,ich würde diese Texte an das Werkzeug als Parameter hängen oder am einfachsten würde ich diese Anwesung mit einem Script einfügenHier der Ausschnitt aus dem Script (durch die Struktur Aufspannung und Herstellprogramm und dann am Ende vom Herstellprogramm die Anweisung einfügen. Set PPRdoc = Doc.PPRDocument Set MyProduct = PPRdoc.Products.Item(1) Set childs = PPRActivity1.ChildrenActivities For setupIndex = 1 To childs.Count Set Child = childs.Item(setupIndex) If (Child.IsSubTy ...
|
 |
CATIA V5 CAM : CAM Automatisieren
DaiVied am 19.09.2011 um 13:59 Uhr (0)
Ich hab mal die Makroaufzeichnung drüber laufen lassen und bekomme beim ausführen die Fehlermeldung, die im angehängten Screenshot ersichtlich ist. der generierte VBS Code lautet:Code:Language="VBSCRIPT"Sub CATMain()Set specsAndGeomWindow1 = CATIA.ActiveWindowSet viewer3D1 = specsAndGeomWindow1.ActiveViewerSet viewpoint3D1 = viewer3D1.Viewpoint3DSet processDocument1 = CATIA.ActiveDocumentSet product1 = processDocument1.GetItem("T1 Schaftfräser D 10")Set parameters1 = product1.ParametersSet product2 = proce ...
|
|
CATIA V5 CAM : CAM Automatisieren
RSchulz am 19.09.2011 um 14:18 Uhr (0)
Ich möchte mal behaupten, dass es daran liegt...Code:Set product3 = products1.Item("Resource.1")Was ist denn Rexource.1?------------------MFGRick SchulzNettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen richtig stellt. - Unities
|
|
CATIA V5 CAM : CAM Automatisieren
DaiVied am 21.09.2011 um 11:22 Uhr (0)
Ich hab in der Dokumentation folgenden Code gefunden, den ich auf meine Bedürfnisse angepasst habeCode:Dim newPart Set newPart = CATIA.ActiveDocument Dim newProduct Set newProduct = newPart.Product CATIA.Documents.Add "Process" Dim PPR Set PPR = CATIA.ActiveDocument Dim Application Set Application = PPR.Application Application.StartWorkbench("ManufacturingProgramWorkbench") Dim Process Set Process = PPR.processes.Item("Process") Dim Setup If (Process.IsSubTypeOf("PhysicalActivity")) Then Set chil ...
|
|
CATIA V5 CAM : cam automatisieren
adrian83 am 24.04.2013 um 15:47 Uhr (0)
ah,danke bgrittmann!das hat mir schon gut geholfen. allerdings weiß ich jetzt wieder nicht weiter.bin im VBA-editor und habe ein actives dokument im watch-fenster.wenn ich bereits weiß,wie ein objekt in den verästelungen des watch baums heißt,wie kann ich da schnell drauf zugreifen? habe mich immer so wie im code unten durchgehangelt.das muss doch auch schneller gehen?viele grüßeCode:Dim processDocument1 As ProcessDocumentSet processDocument1 = CATIA.ActiveDocumentDim ppr As PPRDocumentSet ppr = processDoc ...
|
|
CATIA V5 CAM : setToolAxis
adrian83 am 28.04.2013 um 18:22 Uhr (0)
alles klar martin,nur da antwortet leider keiner. weißt du vllt auch,wie man bei einem gerade ins prismatic-machining modul geladenen modul per makro das bearbeitungs-achsen-system neu setzt. ich habe es so probiert:Code:Sub catmain()Dim a As ProcessDocumentSet a = CATIA.ActiveDocumentDim b As PPRDocumentSet b = a.PPRDocumentDim c As ActivitiesSet c = b.ProcessesDim d As PPRActivitySet d = c.Item(1)Dim e As ChildrenActivitiesSet e = d.ChildrenActivitiesDim f As ManufacturingSetupSet f = e.Item(1)Dim ...
|
